5 REM TEST COMPILER
10 B=13320*4:POKE53281,7:POKE646,6
20 PRINT"[147]TEST.COMP"
30 POKE781,10:POKE782,10:POKE783,0
40 SYS65520:PRINT"TEST"
50 FORI=1TO5STEP1
60 PRINTI:NEXT
70 K=PEEK(197):IFK=64THEN70
80 IFK=3THENEND:REM F7
90 X=PEEK(653)
100 A=K+60354
110 IFX=0THENA=A-65
120 C=PEEK(A):PRINTCHR$(C);
130 IFC=65THENGOSUB180
140 IFC<65THENPRINTCHR$(60);
150 IFC>65THENPRINTCHR$(62);
160 IFC<>65THENPOKEB,2
170 PRINTCHR$(65):GOTO70
180 PRINTCHR$(61);
190 POKEB,5
200 RETURN